home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Scrap.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.2 KB  |  71 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Scrap.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__SCRAP__') = 'UNDEFINED' THEN
  18. __SCRAP__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25. ScrapStuff                 RECORD    0
  26. scrapSize                 ds.l    1
  27. scrapHandle                 ds.l    1
  28. scrapCount                 ds.w    1
  29. scrapState                 ds.w    1
  30. scrapName                 ds.l    1
  31. sizeof                     EQU    16
  32.                         ENDR
  33.  
  34.     IF GENERATING68K THEN
  35.         _InfoScrap:    OPWORD    $A9F9
  36.     ELSE
  37.         IMPORT    InfoScrap
  38.     ENDIF
  39.  
  40.     IF GENERATING68K THEN
  41.         _UnloadScrap:    OPWORD    $A9FA
  42.     ELSE
  43.         IMPORT    UnloadScrap
  44.     ENDIF
  45.  
  46.     IF GENERATING68K THEN
  47.         _LoadScrap:    OPWORD    $A9FB
  48.     ELSE
  49.         IMPORT    LoadScrap
  50.     ENDIF
  51.  
  52.     IF GENERATING68K THEN
  53.         _GetScrap:    OPWORD    $A9FD
  54.     ELSE
  55.         IMPORT    GetScrap
  56.     ENDIF
  57.  
  58.     IF GENERATING68K THEN
  59.         _ZeroScrap:    OPWORD    $A9FC
  60.     ELSE
  61.         IMPORT    ZeroScrap
  62.     ENDIF
  63.  
  64.     IF GENERATING68K THEN
  65.         _PutScrap:    OPWORD    $A9FE
  66.     ELSE
  67.         IMPORT    PutScrap
  68.     ENDIF
  69.  
  70.     ENDIF ; __SCRAP__
  71.